home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / fpkpas92.zip / SRCRTL.ZIP / RTL / DOS / FONT.PPI < prev    next >
Text File  |  1997-07-01  |  991b  |  32 lines
  1. var
  2.    defaultfontdata : array[0..2047] of byte;
  3.  
  4. function getfontpointer(b : byte):longint;
  5.   begin
  6.     dregs.RealSS:=0;
  7.     dregs.RealSP:=0;
  8.     dregs.RealEAX:=$1130;
  9.     dregs.RealEBX:=longint(b shl 8);
  10.     RealIntr($10,dregs);
  11.     getfontpointer:=(longint(dregs.RealES) shl 4) + dregs.RealEBP and $FFFF; 
  12.   end;
  13.  
  14. procedure getdefaultfont;
  15.   var Sel : Word;
  16.   begin
  17.     { 8x8-Defaultfont aus BIOS laden }
  18.     if isDPMI then begin
  19.       SEL:=allocate_ldt_descriptors(1);
  20.       Set_segment_base_address(SEL,getfontpointer(3));
  21.       Set_segment_limit(SEL,1024);
  22.       movelong(sel,@defaultfontdata[0],$3FF);
  23.       Set_segment_base_address(SEL,getfontpointer(4));
  24.       Set_segment_limit(SEL,1024);
  25.       movelong(sel,@defaultfontdata[1024],$3FF);
  26.       free_ldt_descriptor(SEL);
  27.     end else begin
  28.       move(pointer(getfontpointer(3)+core)^,defaultfontdata[0],1024);
  29.       move(pointer(getfontpointer(4)+core)^,defaultfontdata[1024],1024);
  30.     end;
  31.   end;
  32.